home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / english / ARexx / edward_look.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  1KB  |  41 lines
  1. /* [TRANSLATOR'S NOTE. As I didn't own Edward neither I could try it nor
  2.    translate its menu items. In such cases, I've put the supposed English
  3.    translation between [* and *]].
  4.  
  5.    This script sends the word under the cursor to FLM
  6.  
  7.    To call this script through a keyboard shortcut, load the file
  8.    "Edward.DEF" in Edward directory. Now, go with your cursor on location
  9.    "Keybordbelegungen" [* Keyboard Mapping/Allocation *] (you can find this
  10.    in "Einstellungen" [* Settings *] menu), and insert the following line
  11.    e.g. after "(CTRL".
  12.  
  13.    <Key> (ExecRexx "<File>")
  14.  
  15.    <Key>:  Here you must indicate the key through which this script could
  16.            be called, e.g. F10
  17.    <File>: Here you must indicate name and path of this file.
  18.  
  19.    E.g.: F10    (ExecRexx "edward_look.rexx")
  20.  
  21.    In the above example, through CTRL-F10, word under cursor will be sent
  22.    to FLM, which thereafter opens a window with the translation.
  23.  
  24. -> Warning: The program RexxMast must be active !!!
  25. */
  26.  
  27. /* Here indicate, please, the FLM path and program name */
  28. initiation=run >NIL: "dh0:FLM/FLM"
  29.  
  30. Options RESULTS
  31.  
  32. IF ~show('P','FLM') THEN DO
  33.  /* if FLM is not yet running */
  34.  ADDRESS COMMAND initiation
  35.  ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
  36. END
  37.  
  38. GetWord /* Word under cursor in variable RESULT */
  39.  
  40. Address FLM lookword RESULT /* Contents of variable RESULT to FLM*/
  41.